home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / tonyray1.arc / CC1.PRG < prev    next >
Encoding:
Text File  |  1985-09-01  |  1.7 KB  |  98 lines
  1. SELE CURRENT
  2. SET INDE TO CURRNAME,CURRNMBR
  3. CLEA
  4. mchoice=' '
  5. mname=space(20)
  6. mclose=.t.
  7. mdele=0
  8. DO WHIL MCLOSE=.T.
  9. mchoice=' '
  10. @05,05 say 'enter client name or'
  11. @06,05 say '        (cr) to exit ' get mname pict '!!!!!!!!!!!!!!!!!!!!'
  12. READ
  13. mname=trim(mname)
  14. IF len(MNAME)=0 .OR. MNAME=SPACE(20)
  15. mclose=.f.
  16. exit
  17. ENDI
  18. FIND &mname
  19. DO CASE
  20. CASE EOF()
  21. @15,23 SAY CHR(7)+'no client by that name - try again'
  22. xx=1
  23. DO WHIL xx<35
  24. xx=xx+1
  25. ENDD
  26. mname=space(20)
  27. @15,23
  28. LOOP
  29. OTHE
  30. @10,05 say '    client  - '+clientname
  31. @11,05 say '  reference - '+reference
  32. @12,05 say 'file number - '+file_nmbr
  33. @15,01 say ' is this the case to close? (Y) or (N)' get mchoice pict '!'ì
  34.  
  35. READ
  36. IF MCHOICE<>'Y'
  37. SET color to w*/r
  38. @ 21,15 SAY CHR(7)+'case NOT closed because you did'
  39. @ 22,15 say 'not select (Y) - hit any key'
  40. SET color to 6/1,7/4,6
  41. SET cons off
  42. WAIT
  43. SET cons on
  44. mname=space(20)
  45. @07,00 clear
  46. ELSE
  47. MFILE_NMBR=FILE_NMBR
  48. SELE SERVICE
  49. FIND '&MFILE_NMBR'
  50. DO WHIL FILE_NMBR='&MFILE_NMBR' .AND. .NOT. EOF()
  51. DELE
  52. SKIP
  53. ENDD
  54. SELE CURRENT
  55. SET INDE TO CURRNAME,CURRNMBR
  56. FIND &MNAME
  57. DELE
  58. MDELE=mdele+1
  59. SET color to w*/r
  60. @21,15 say str(mdele)+' case(s) closed'
  61. xx=1
  62. DO WHIL XX<35
  63. xx=xx+1
  64. ENDD
  65. SET color to 6/1,7/4,6
  66. mname=space(20)
  67. @07,00 clear
  68. ENDI
  69. ENDC
  70. ENDD
  71. IF mdele>=1
  72. CLEA
  73. SET COLOR TO W*/R
  74. @01,00 SAY 'closing cases - please standby'
  75. ? 'number of cases we are closing is'+str(mdele)
  76. SET color to 6/1,7/4,6
  77. SET CONS OFF
  78. COPY TO TEMP FOR DELE()
  79. SELE CLOSED
  80. APPE FROM TEMP
  81. sele current
  82. PACK
  83. DELE FILE TEMP.DBF
  84. SELE SERVICE
  85. PACK
  86. SELE CURRENT
  87. ELSE
  88. SET CONS ON
  89. SET color to w*/r
  90. @01,01 say 'no cases closed - hit any key'
  91. SET color to 6/1,7/4,6
  92. SET cons off
  93. WAIT
  94. SET cons on
  95. ENDI
  96. curr='014'
  97. RETU
  98.